
;--- implements mciXXX()

		.386
if ?FLAT
		.MODEL FLAT, stdcall
else
		.MODEL SMALL, stdcall
endif
		option casemap:none
		option proc:private

		include winbase.inc
		include mmsystem.inc
		include macros.inc

		.CODE

mciSendCommandA proc public iddevice:DWORD, uMsg:DWORD, fdwCommand:DWORD, dwParam:DWORD

		mov eax, MCIERR_CANNOT_LOAD_DRIVER
		@strace <"mciSendCommandA(", iddevice, ", ", uMsg, ", ", fdwCommand, ", ", dwParam, ")=", eax, " *** unsupp ***">
		ret
		align 4

mciSendCommandA endp

mciSendStringA proc public lpszCommand:DWORD, lpszReturnString:DWORD, cchReturn:DWORD, hwndCallback:dword

		mov eax, MCIERR_CANNOT_LOAD_DRIVER
ifdef _DEBUG
		mov ecx, lpszCommand
		@strace <"mciSendStringA(", &ecx, ", ", lpszReturnString, ", ", cchReturn, ", ", hwndCallback, ")=", eax, " *** unsupp ***">
endif
		ret
		align 4

mciSendStringA endp

mciGetErrorStringA proc public fdwError:DWORD, lpszError:ptr BYTE, cchErrorText:DWORD

		xor eax, eax
		@strace <"mciGetErrorStringA(", fdwError, ", ", lpszError, ", ", cchErrorText, ")=", eax, " *** unsupp ***">
		ret
		align 4

mciGetErrorStringA endp

		end
